\~7 



Z. 

V 
A 



A 

7 
A 



\~7 



A 



7 



A 



A IS 



/l N 



4 



N 



4 



A 



7 



4 



N 



V 




z. 
v 



V 

\ 

7 



A 2. 
7 V 



"7 T 



2. 



4. 



/I N 

*=* 

4_A 
AA 



V 



N 
A 

V 

Z 

\ 

z 
\ 

A 



V 

A 

V 

A 

"7 
A 

P 
"7 



.1 Z. 

■7 v 



'7 



A 



A 



A 



k A 



A 



^ Z 
7 T 



V 



A 



4-A 



4 



4 



4K 



7 



4==* 




V 



7 



44* 

^7 



A 4 

"7 V 



A N 



A 2. 
"7 V 



A 21. 
7 V 



4 



t7 
7 



A Z. 
"7 V 



£ 4 

"7 v 



4A 



N~7 



4 



A ^. 
■7 V 



7 



^"7 



4 



V 



7 



AA 



4 



4 



7 



A 
7 



N 4 



P7 



4A 



^"7 



4 



A 4 



AA 



4 



7 



V 
4 



7 1 

A 
■7 



A 
"7 



"7 



A 
"7 



4_K 



"TV 



A ^. 
■7 v 



z. 
v 



A 

7 
A 

"7 



A 
"7 



A 
"7 



4_A 

4-A 
4 A 



A 4 



T7 



A 



A 



7 



A K 



\~7 



4 



U 4 



^"7 



A 



7 



7 ^ 



4 



A 



A 



A 4 



V 

7 




DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. Datfe 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

C o m ment 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Commen t 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

C o m ment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment , , , 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Commen t 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code_ 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 



11/09/64 



Mean Standard and Variance 

William E. Milner 

North Texas State University 

May 10, 1962 

6.0 Statistical 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



Table of Contents 



II. Detailed Description of Program 

III. Input/Output 

IV. Sample Problem 

V. Operating Instructions 

VI. Program Listing 



Program Manual 

I. Titlr : Mean, 'tandard Deviation and Variance 

II. Description of Program 

A. The results of the program are the mean, standard 
deviation and variance for an array of data with 

up to 15 columns and no limit on the number of rows. 
An option is present in that the values may be had 
for each row ( sense switch k on ) as well as for 
each column. 

B. The method of computation are standard. 

III. Input/Output 
Input 

Card 1: N M 

where N = the no. of rows 

M = the no of columns 
Card 2 and subsequent : The raw data in row order 
Output: See example 

IV. Sample Problem 



© 



Operating Instructions 

1) Set tabs etc. for normal FORTRAN run 

2) Ready card reader with program deck followed by data 

3) Depress reset and load 

if) When the message "Load Data " is typed depress start. 

5) Sense switch l\. is used as follows: 

SSlf on: Results for each row are output as well as coll 
SSij. off: Results for each col are output only. 



o 



u -j- 



rcoJi U. 4166666 

10 3*- * 2.5833333 
2.2 3.35 7.7 9833333 

1.1 2.25 4.4 2.6500000 

3.2 6.45 5.3 3.0166666 

1.5 2.45 4. 2.6500000 

2.6 1.45 5. 3.0166666 

1.5 2.45 4. 4.9833333 

2.6 1.45 5. 2.5833333 
3.2 6.45 5.3 4.4166666 

1.1 2.25 4.4 

2.2 3.35 7.7 

2.1200000 
3.1900000 
5.2800000 



5 T/WPARb 

2.3686610 
1.3676825 
1.3455688 
1.0303720 
1.4789260 
1.0303720 
1.4789260 
1.3455688 
1.3676825 
2.3686610 



5.6105556 
1.8705556 
1.8105556 
1.0616666 
2.1872223 
1.0616666 
2.1872223 
1.8105556 
1.8705556 
5.6105556 



.75206387 



1.7385050 



.56560000 



3.0224000 



1.2921299 



1.6696000 



C MEAN, STANDARD DEVIATION, VARIANCE 

C GENE MILNER 

C NORTH TEXAS STATE UNIVERSITY 

DIMENSION SX(16),SX2(16),X(15) 

1 DO 2 1=1,16 

sx(i)-o.- 

2 SX2(I)«0. 
READ.N.M 
XN-N 
XM=M 

DO 10 1-1, N 
DO 5 J-1.M 
READ,X(J) 

IF(SENSE SWITCH 4)3,4 

3 SX(16)=SX(16)+X(J) 
SX2(16)-SX2(16)+X(J)*X(J) 

4 SX(J)»SX(J)+X(J) 

5 SX2(J)-SX2(J)+X(J)*X(J) 
IF(SENSE SWITCH 4)6,9 

6 XBI«SX(16)/XM 
SIG2-(SX2(16)-SX(16)*SX(16)/XM)/XM 
SIG«SQR(SIG2) 
TYPE.XBI,SIG,SIG2 

9 SX(16)«0.- 
SX2(16)=0. 

10 CONTINUE 
Z-CWT( 1.0000004) 
DO 11 1-1, M 
XBI=SX(I)/XN 

SIG2»(SX2( I )-SX( I )*SX( I )/XN)/XN 
SIG=SQR(SIG2) 
TYPE,XB1,SIG,SIG2,I 
Z-CWT( 1.0000001) 

11 CONTINUE 
PAUSE 

GO TO 1 
END 
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07500 
Q7500 
07500 
07500 
07500 
07512 
07560 
07644 



MEAN, STANDARD DEVIATION, VARIANCE 
GENE MILNER 



07668 
07704 
07740 
137752 
07764 
07800 



NORTH TEXAS STATE UNIVERSITY 
DIMENSION SX(16), 5X2(16) ,X(15) 

1 DO 2 1=1,16 
SX(I)=Q* 

2 SX2(I)=0. 

__REAP,N,M 



07820 
07880 
07976 
M08k 
08264 
08284 



XN=N 

XM-M 

DO 10 1-1, N 

DO 5 J-1J< 

READ,X(J) 

IF(SENSE SWITCH 4)3 f 4 



08320 
JJ84Q4 
08428 
08476 
08500 



SX(16)-SX(16)+X(J) 
SX2M 6)-SX 2(1 6)+X(J)*X(J) 

4 SX(J)-SX(J)+X(J) 

5 SX2(J)»SX2(J)+X(J)*X(J) 
IF(SENSE SWITCH 4)6,9 

6 XBI-SX(16)/XM 



SIG2=(SX2(16)-SX(16)*SX(16)/XM)/XM 

S1C-SQR(SIG2) 

TYPE.XBI,SIG,SIG2 

_9 SX(l6)-0. 

SX2(16)«0. 



08560 


Z=CWT( 1.0000004) 




08584 _ 


DO 11 1=1, M 




08596 


XBI=SX(I)/XN 




O8656 


SIG2=(SX2( 1 )-SX( 1 )*SX( 1 )/XN)/XN 




08812 


SIG=SQR(SIG2) 




08836 


TYPE.XB1.SIG.SIG2.I 





08896 
8920 
08956 
flfi96£ 
08976 



Z=CWT( 1.0000001) 

11 CONTINUE 

PAUSE 

. GO TO 1 

END 



END OF COMPILATION 

I PAD SUBROUTINE DECK 

THEN PUSH START 

SW1 ON FOR SYMBOL TABLE 



19859 


ABS 








19849 


ABSF 








19819 


CWT 








19829 


CWTF 








19819 


ERR 
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19809 
19Z99 
19639 
19479 
19309 
1 9299 
19289 
19279 
19269 
19259 
19229 
19169 



ERRF 

SX 

SX2 

X 

I 

0000000000 



19649 
19489 
19339 



N 

M 

XN 

XM 

J 

XBI 



C) 

v. / 



© 



19159 
19139 
19129 
19119 
19099 



SIG2 

SIG 

Z 

51 1000000'+ 
51 10000001 



PROCESSING COMPLETE 
TO EXECUTE PROGRAM 
LOAD OBJECT DECK 
THEN PUSH START 



TEST DATA 
10 3 

2.2 3.35 7.7 

1.1 2.25 4.4 
3 t 2 6.45 5.3 
1.5 2.45 4. 
2,6 1.45 5. 

1.5 2.45 4. 

2.6 1.1*5 5. 

3.2 6.45 5.3 



1.1 2.25 4.4 

2.2 3.35 7.7 

LOAD DATA „ 

4.4166666 2.3686610 5.6105556 

2.5833333 1.3676825 1.8705556 

4.9833333 1 .3455 688 1.8105556 

2.6500000 1.0303720 1.06l666l> 

3.0166666 1.4789260 2.1872223 

2.6500000 1.0303720 1.0616666 

3.0166666 1.4789260 2.1872223 

4.9833333 1.3455688 1.8105556 




2.1200000 



.75206387 



.56560000 



3.1900000 



1.7385050 3.0224000 



2 



5.2800000 



1*1921299 



1.6696000 



1 



